home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / Fields_7_orderfield.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  9.1 KB  |  159 lines
  1. on mouseUp
  2.   global gtemp
  3.   if the mouseLine <> -1 then
  4.     set gtemp to the mouseLine
  5.     if the number of chars in line gtemp of field "orderfield" < 1 then
  6.       hilite char 1 of field "orderfield"
  7.       set the puppet of sprite 16 to 1
  8.       set the locH of sprite 16 to -200
  9.       set the locV of sprite 16 to 0
  10.       set the castNum of sprite 16 to cast "dummy1"
  11.       set the locH of sprite 16 to 300
  12.       set the locV of sprite 16 to 345
  13.       set the puppet of sprite 16 to 0
  14.       put EMPTY into field "detail"
  15.       updateStage()
  16.       abort()
  17.     end if
  18.     if item 1 of line gtemp of field "masterfield" contains "caster" then
  19.       set the puppet of sprite 16 to 1
  20.       set the locH of sprite 16 to -200
  21.       set the locV of sprite 16 to 0
  22.       set the locH of sprite 11 to -200
  23.       set the locV of sprite 11 to 0
  24.       set the puppet of sprite 18 to 1
  25.       set the visible of sprite 18 to 1
  26.       set the puppet of sprite 18 to 0
  27.       updateStage()
  28.       hilite line gtemp of field "orderfield"
  29.       put EMPTY into field "detail"
  30.       put "Quantity: " & item 16 of line gtemp of field "masterfield" & RETURN after field "detail"
  31.       put "Product: " & item 1 of line gtemp of field "masterfield" & RETURN after field "detail"
  32.       put "Model Number: " & item 2 of line gtemp of field "masterfield" & RETURN after field "detail"
  33.       put "Mounting: " & item 3 of line gtemp of field "masterfield" & RETURN after field "detail"
  34.       put "Wheel Diameter: " & item 4 of line gtemp of field "masterfield" & RETURN after field "detail"
  35.       put "Tread Width: " & item 5 of line gtemp of field "masterfield" & RETURN after field "detail"
  36.       put "Capacity Per Caster: " & item 6 of line gtemp of field "masterfield" & RETURN after field "detail"
  37.       put "Wheel Type: " & item 7 of line gtemp of field "masterfield" & RETURN after field "detail"
  38.       put "Bearing: " & item 8 of line gtemp of field "masterfield" & RETURN after field "detail"
  39.       put "Load Height: " & item 9 of line gtemp of field "masterfield" & RETURN after field "detail"
  40.       put "Swivel Radius: " & item 10 of line gtemp of field "masterfield" & RETURN after field "detail"
  41.       put "Forked Leg Spacing: " & item 11 of line gtemp of field "masterfield" & RETURN after field "detail"
  42.       put "Approx. Weight: " & item 12 of line gtemp of field "masterfield" & RETURN after field "detail"
  43.       put "Options: " & item 13 of line gtemp of field "masterfield" & RETURN after field "detail"
  44.       set the textStyle of field "detail" to "Plain"
  45.       set the textFont of field "detail" to "Times New Roman"
  46.       set the textSize of field "detail" to 11
  47.       set the textHeight of field "detail" to 12
  48.       set the locH of sprite 11 to 26
  49.       set the locV of sprite 11 to 257
  50.       set the locH of sprite 16 to 320
  51.       set the locV of sprite 16 to 345
  52.       set the castNum of sprite 16 to cast item 14 of line gtemp of field "masterfield"
  53.       updateStage()
  54.     end if
  55.     if item 1 of line gtemp of field "masterfield" contains "wheel" then
  56.       set the puppet of sprite 16 to 1
  57.       set the locH of sprite 16 to -200
  58.       set the locV of sprite 16 to 0
  59.       set the locH of sprite 11 to -200
  60.       set the locV of sprite 11 to 0
  61.       set the puppet of sprite 18 to 1
  62.       set the visible of sprite 18 to 0
  63.       set the puppet of sprite 18 to 0
  64.       updateStage()
  65.       hilite line gtemp of field "orderfield"
  66.       put EMPTY into field "detail"
  67.       put "Quantity: " & item 16 of line gtemp of field "masterfield" & RETURN after field "detail"
  68.       put "Product: " & item 1 of line gtemp of field "masterfield" & RETURN after field "detail"
  69.       put "Model Number: " & item 2 of line gtemp of field "masterfield" & RETURN after field "detail"
  70.       put "Wheel Diameter: " & item 3 of line gtemp of field "masterfield" & RETURN after field "detail"
  71.       put "Tread Width: " & item 4 of line gtemp of field "masterfield" & RETURN after field "detail"
  72.       put "Capacity Per Wheel: " & item 5 of line gtemp of field "masterfield" & RETURN after field "detail"
  73.       put "Bearing: " & item 6 of line gtemp of field "masterfield" & RETURN after field "detail"
  74.       put "Wheel Bearing Bore: " & item 7 of line gtemp of field "masterfield" & RETURN after field "detail"
  75.       put "Wheel Hub Length: " & item 8 of line gtemp of field "masterfield" & RETURN after field "detail"
  76.       put "Spanner Bushing Bore: " & item 9 of line gtemp of field "masterfield" & RETURN after field "detail"
  77.       put "Spanner Bushing Length: " & item 10 of line gtemp of field "masterfield" & RETURN after field "detail"
  78.       put "Approx. Weight: " & item 11 of line gtemp of field "masterfield" & RETURN after field "detail"
  79.       put "Option: " & item 13 of line gtemp of field "masterfield" & RETURN after field "detail"
  80.       set the textStyle of field "detail" to "Plain"
  81.       set the textFont of field "detail" to "Times New Roman"
  82.       set the textSize of field "detail" to 11
  83.       set the textHeight of field "detail" to 12
  84.       set the locH of sprite 11 to 35
  85.       set the locV of sprite 11 to 266
  86.       set the castNum of sprite 16 to cast item 14 of line gtemp of field "masterfield"
  87.       set the locH of sprite 16 to 320
  88.       set the locV of sprite 16 to 345
  89.       updateStage()
  90.     end if
  91.     if item 1 of line gtemp of field "masterfield" contains "Floor Lock" then
  92.       set the puppet of sprite 16 to 1
  93.       set the locH of sprite 16 to -200
  94.       set the locV of sprite 16 to 0
  95.       set the locH of sprite 11 to -200
  96.       set the locV of sprite 11 to 0
  97.       set the puppet of sprite 18 to 1
  98.       set the visible of sprite 18 to 1
  99.       set the puppet of sprite 18 to 0
  100.       updateStage()
  101.       hilite line gtemp of field "orderfield"
  102.       put EMPTY into field "detail"
  103.       put "Quantity: " & item 16 of line gtemp of field "masterfield" & RETURN after field "detail"
  104.       put "Product: " & item 1 of line gtemp of field "masterfield" & RETURN after field "detail"
  105.       put "Model Number: " & item 2 of line gtemp of field "masterfield" & RETURN after field "detail"
  106.       put "Top Plate Size: " & item 3 of line gtemp of field "masterfield" & RETURN after field "detail"
  107.       put "Extended Height: " & item 4 of line gtemp of field "masterfield" & RETURN after field "detail"
  108.       put "Retracted Height: " & item 5 of line gtemp of field "masterfield" & RETURN after field "detail"
  109.       put "Bolt Hole Spacing: " & item 6 of line gtemp of field "masterfield" & RETURN after field "detail"
  110.       put "Bolt Hole Size: " & item 7 of line gtemp of field "masterfield" & RETURN after field "detail"
  111.       put "Weight: " & item 8 of line gtemp of field "masterfield" & RETURN after field "detail"
  112.       put "Used with Caster Model Numbers: " & item 9 of line gtemp of field "masterfield" & RETURN after field "detail"
  113.       set the textStyle of field "detail" to "Plain"
  114.       set the textFont of field "detail" to "Times New Roman"
  115.       set the textSize of field "detail" to 11
  116.       set the textHeight of field "detail" to 12
  117.       set the locH of sprite 11 to 35
  118.       set the locV of sprite 11 to 266
  119.       set the castNum of sprite 16 to cast item 14 of line gtemp of field "masterfield"
  120.       set the locH of sprite 16 to 320
  121.       set the locV of sprite 16 to 345
  122.       updateStage()
  123.     end if
  124.     if item 1 of line gtemp of field "masterfield" contains "bumper" then
  125.       set the puppet of sprite 16 to 1
  126.       set the locH of sprite 16 to -200
  127.       set the locV of sprite 16 to 0
  128.       set the locH of sprite 11 to -200
  129.       set the locV of sprite 11 to 0
  130.       set the puppet of sprite 18 to 1
  131.       set the visible of sprite 18 to 0
  132.       set the puppet of sprite 18 to 0
  133.       updateStage()
  134.       hilite line gtemp of field "orderfield"
  135.       put EMPTY into field "detail"
  136.       put "Quantity: " & item 16 of line gtemp of field "masterfield" & RETURN after field "detail"
  137.       put "Product: " & item 1 of line gtemp of field "masterfield" & RETURN after field "detail"
  138.       put "Model Number: " & item 2 of line gtemp of field "masterfield" & RETURN after field "detail"
  139.       put "Bumper Diameter: " & item 3 of line gtemp of field "masterfield" & RETURN after field "detail"
  140.       put "Hole Diameter: " & item 4 of line gtemp of field "masterfield" & RETURN after field "detail"
  141.       put "Thickness: " & item 5 of line gtemp of field "masterfield" & RETURN after field "detail"
  142.       put "Mounting Holes: " & item 6 of line gtemp of field "masterfield" & RETURN after field "detail"
  143.       put "Length: " & item 7 of line gtemp of field "masterfield" & RETURN after field "detail"
  144.       put "Width: " & item 8 of line gtemp of field "masterfield" & RETURN after field "detail"
  145.       put "Inserts: " & item 9 of line gtemp of field "masterfield" & RETURN after field "detail"
  146.       set the textStyle of field "detail" to "Plain"
  147.       set the textFont of field "detail" to "Times New Roman"
  148.       set the textSize of field "detail" to 11
  149.       set the textHeight of field "detail" to 12
  150.       set the locH of sprite 11 to 35
  151.       set the locV of sprite 11 to 266
  152.       set the castNum of sprite 16 to cast item 14 of line gtemp of field "masterfield"
  153.       set the locH of sprite 16 to 320
  154.       set the locV of sprite 16 to 345
  155.       updateStage()
  156.     end if
  157.   end if
  158. end
  159.